home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Netware Super Library
/
Netware Super Library.iso
/
pgm_tool
/
nwtp06
/
tstrip.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1995-03-01
|
705b
|
31 lines
Program tstRIP;
USES NwMisc,NwIPX,NwRIP;
Var ripInfo:TRIPinfo;
k,n :word;
NetAddr:TnetworkAddress;
begin
IF NOT IPXinitialize
then begin
writeln('IPX must be loaded before this program can be ran.');
halt(1);
end;
FillChar(NetAddr,4,#$0); { own segment }
n:=GetAllNetworks(NetAddr,ripInfo);
writeln;
writeln('MAIN: ',n,' network segment(s) found.');
writeln('Dumping the RIP tables of all found segments...');
writeln;
writeln('NetAddr Tcks Hops');
for k:=1 to n
do begin
write(HexDumpStr(ripinfo[k].address,8));
write(' ',ripinfo[k].ticks:4);
writeln(' ',ripinfo[k].hops:4);
end;
writeln('End of RIP table dump.');
end.